Workplace Effectiveness:…ecision-Making Strategies/Workplace Effectiveness: Decision-Making Strategies.iso/pc/Files/Myself.dxr/00003_Navigation handlers.ls

Text File | 1998-12-16 | 1.6 KB | 67 lines

global gMasterData, gSection, gQuestions

on goIntro
  go(label("intro"))
  set gSection to #intro
  setUpQuestions()
  goNarrator(gMasterData, "08")
end

on goQuestions
  go(label("quest"))
  goNarrator(gMasterData, "09")
end

on setUpQuestions
  set gQuestions to [#questionNum: 1, #artSprite: 6, #fieldSprite: 7, #numofquestions: 8]
end

on questionNext
  if the questionNum of gQuestions < the numofquestions of gQuestions then
    puppetSound("ploof")
    set the questionNum of gQuestions to the questionNum of gQuestions + 1
    if the questionNum of gQuestions = 8 then
      go("quest 8")
      goNarrator(gMasterData, "16")
      if not activationOn(gMasterData) then
        activate(gMasterData)
      end if
    else
      nextQuest()
    end if
  end if
end

on questionPrev
  if the questionNum of gQuestions > 1 then
    puppetSound("ploof")
    set the questionNum of gQuestions to the questionNum of gQuestions - 1
    if the questionNum of gQuestions = 7 then
      go("quest")
    end if
    nextQuest()
  end if
end

on nextQuest
  set the member of sprite the artSprite of gQuestions to member ("quest" && the questionNum of gQuestions)
  set the member of sprite the fieldSprite of gQuestions to member ("note field" && the questionNum of gQuestions) of castLib "Shared"
  updateStage()
  case the questionNum of gQuestions of
    1:
      goNarrator(gMasterData, "09")
    2:
      goNarrator(gMasterData, "10")
    3:
      goNarrator(gMasterData, "11")
    4:
      goNarrator(gMasterData, "12")
    5:
      goNarrator(gMasterData, "13")
    6:
      goNarrator(gMasterData, "14")
    7:
      goNarrator(gMasterData, "15")
  end case
end